﻿<%
'预览入口

    dim blog_id,inc_file
    blog_id = trim(request("blog_id"))
    
    on error resume next
    
    if blog_id<>"" then
        inc_file = "data/"&blog_id&"/preview.asp"
        Server.transfer(inc_file)
        
        if Err.number=0 then
            response.end
        end if    
    end if
        
    Err.clear

    on error goto 0
    Server.transfer("data/default/preview.asp")
    
%>
